Namespace Aricie.DNN.Caching.Analysis
    <Serializable()> _
    Public Structure KeySequenceStat

        Public Sub New(ByVal key As String, ByVal seqCount As Integer, ByVal totalCount As Integer)
            Me.Key = key
            Me.SeqCount = seqCount
            Me.TotalCount = totalCount
        End Sub


        Public Key As String
        Public SeqCount As Integer
        Public TotalCount As Integer

        Public ReadOnly Property SequenceFrequency() As Integer
            Get
                Return Convert.ToInt32((100 * SeqCount) / TotalCount)
            End Get
        End Property

    End Structure
End Namespace